home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _GUICtrlSliderSetPos.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  1.0 KB  |  32 lines
  1. #include <GUIConstants.au3>
  2. #include <GuiSlider.au3>
  3.  
  4. opt('MustDeclareVars', 1)
  5.  
  6. Dim $Gui_Slider, $slider1, $button, $msg, $h_slider, $Status, $Pos = 0
  7.  
  8. $Gui_Slider = GUICreate("Slider Set Pos", 220, 100, 100, 200)
  9. GUISetBkColor(0x00E0FFFF)  ; will change background color
  10.  
  11. $slider1 = GUICtrlCreateSlider(10, 10, 200, 20)
  12. GUICtrlSetLimit(-1, 200, 0) ; change min/max value
  13. $button = GUICtrlCreateButton("Set Pos", 75, 55, 75, 20)
  14. GUISetState()
  15. GUICtrlSetData($slider1, 45) ; set cursor
  16. $h_slider = ControlGetHandle($Gui_Slider, "", "msctls_trackbar321")
  17. $Status = GUICtrlCreateLabel("Pos: " & GUICtrlRead($slider1), 0, 80, 220, 20, BitOR($SS_SUNKEN, $SS_CENTER))
  18. While 1
  19.    $msg = GUIGetMsg()
  20.    Select
  21.       Case $msg = $GUI_EVENT_CLOSE
  22.          ExitLoop
  23.       Case $msg = $button
  24.          $Pos += 10
  25.          If $Pos > 200 Then
  26.             $Pos = 10
  27.          EndIf
  28.          _GUICtrlSliderSetPos ($h_slider, $Pos)
  29.          GUICtrlSetData($Status, "Pos: " & GUICtrlRead($slider1))
  30.    EndSelect
  31. WEnd
  32.